home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch07.Authoring / CommandDemos / GoToNetPage.dir / 00001.ls next >
Encoding:
Text File  |  1996-10-22  |  273 b   |  11 lines
  1. on mouseUp
  2.   global gNetFlag
  3.   set the itemDelimiter to ","
  4.   if the number of items in field "argument" >= 2 then
  5.     GoToNetPage(item 1 of field "argument", item 2 of field "argument")
  6.   else
  7.     GoToNetPage(the text of field "argument")
  8.   end if
  9.   set gNetFlag to 1
  10. end
  11.